home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac CD-ROM 59 / SVM Mac CD-ROM - No 59.iso / demo camisole / Quai.Dxr / 00287_retour de l'engin à sa place.ls < prev    next >
Encoding:
Text File  |  1999-04-06  |  483 b   |  19 lines
  1. on exitFrame
  2.   global gTrajet, gEcartTete, gEcartGueule
  3.   repeat while (gTrajet < 643) or (gTrajet > 681)
  4.     if gTrajet < 643 then
  5.       set gTrajet to gTrajet + 12
  6.     else
  7.       set gTrajet to gTrajet - 12
  8.     end if
  9.     set the locH of sprite 5 to gTrajet
  10.     set the locH of sprite 7 to gTrajet + gEcartTete
  11.     set the locH of sprite 8 to gTrajet + gEcartGueule
  12.     updateStage()
  13.   end repeat
  14.   puppetSprite(5, 0)
  15.   puppetSprite(7, 0)
  16.   puppetSprite(8, 0)
  17.   puppetSound(0)
  18. end
  19.